10 PRINT"[147]":POKE53280,0:POKE53281,0
20 PRINTTAB(14)"[152]WEGBERECHNUNG"
25 PRINTTAB(13)"---------------"
26 PRINTTAB(16)"VON AWAR"
30 PRINT"KMH:";
40 INPUT A
50 PRINT"BREMSWEG IN METER    :";
60 PRINT A/10*A/10
70 PRINT"REAKTIONSWEG IN METER:";
80 PRINT A/10*3
90 PRINT"ANHALTEWEG IN METER  :";
100 PRINTA/10*A/10+A/10*3
104 PRINT:PRINT
105 PRINT"NOCH EINMAL (J/N):";
110 INPUT A$
120 IF A$="N"THEN PRINT"[147]**** COMMODORE 64 BASIC V2 ****"
123 IF A$="J"THEN GOTO 10
125 PRINT
130 PRINT"64K RAM SYSTEM  38911 BASIC BYTES FREE"
140 FORX=1TO180:NEXTX
150 POKE53280,12:NEW